home *** CD-ROM | disk | FTP | other *** search
/ Know Your Baseball - The Greatest Player Resource / Know Your Baseball - Greatest Player.iso / Baseball / Director / SHARED.CST / 00014_Script_Practice Function Scripts < prev    next >
Text File  |  1998-09-21  |  3KB  |  109 lines
  1. global gClicked, gControls,gBt,gPlayerFlag,sndFlag1,gAVI,CrdFlag1,gTx,gStopFlag,gLast,gMode,gStars
  2.  
  3.  
  4.  
  5. -- record the screen status before toasting everything to go to the Session Movie
  6. on Practice
  7.   setsprites
  8.   set gmode = 2
  9.   
  10.   -- save the current star settings
  11.   
  12.   Set gStars =[]
  13.   repeat with x = 12 to 20
  14.     append gStars, the blend of sprite x
  15.   end repeat
  16.   ToastVideoControls
  17.   BigMovie
  18.   play movie "Session"
  19.   
  20. end
  21.  
  22.  
  23. -- Restore the screen status from Castmember "LastStatus"
  24.  
  25.  
  26. on SetModeButton
  27.   puppetsprite 4, true
  28.   set the type of sprite 4= 1
  29.   set  the ink of sprite 4 = 32
  30.   set the blend of sprite 4 = 100
  31.   set the castnum of sprite 4 to the number of cast "ModeBar"
  32.   set the locH of sprite 4= 155
  33.   set  the LocV of sprite 4 = 284
  34.   set the visible of sprite 4 = true
  35.   
  36.   set the type of sprite 34= 1
  37.   set  the ink of sprite 34 = 32
  38.   set the blend of sprite 34 =0
  39.   set the castnum of sprite 34 to the number of cast "ModeBar1"
  40.   set the locH of sprite 34= 155
  41.   set  the LocV of sprite 34 = 284
  42.   
  43.   set the visible of sprite 34 = true
  44.   mSetCommand (gControls),34, "Practice"
  45. end
  46.  
  47.  
  48. on UnModeButton
  49.   set the type of sprite 34 = 0
  50.   set the type of sprite 4 = 0
  51.   puppetsprite 4, false
  52. end
  53.  
  54. on ScreenDownPractice
  55.   set gMode =1
  56.   puppetSound 0
  57.   set  the mouseDownScript= "Menu"
  58.   -- set up some specifics for the video screen
  59.   set the visible of sprite 11 to false
  60.   set the visible of sprite 32 to false
  61.   set the visible of sprite 31 to true
  62.   set the blend of sprite 3 to 0
  63.   set the visible of sprite 10 to false
  64.   updatestage
  65.   mSetSecondaryCards(gControls) gPlayerFlag, (gTx)
  66.   setSpritesSml
  67.   
  68.   -- set up practice mode button in 4 movies
  69.   if gMode = 1 then SetModeButton
  70.   updatestage
  71.   
  72.   -- loads a video
  73.   set gStopFlag = 0
  74.   loadvideo gplayerflag
  75.   
  76.   --sets sprite for screenup on
  77.   
  78.   set the type of sprite 31 = 1
  79.   set the castnum of sprite 31 to the number of cast "ScrnUp"
  80.   set the loch of sprite 31 = 330
  81.   set the locv of sprite 31 = 335
  82.   set the ink of sprite 31 = 32
  83.   set the blend of sprite 31 = 0
  84.   
  85.   setSpritesSml
  86.   showcard1
  87.   updatestage
  88.   set gAVI =EMPTY
  89.   set the visible of sprite 10 to true
  90.   set the blend of sprite 3  to 100
  91.   
  92.   
  93.   -- change some functions on the fly
  94.   mSetCommand(gControls),31,"ScreenUp"
  95.   mSetCommand (gControls),32, EMPTY
  96.   mSetCommand (gControls),34, "Practice"
  97.   
  98.   -- set the stars back to where they were  
  99.   repeat with x = 12 to 20
  100.     set Status = getAt(gStars, x-11)
  101.     set the blend of sprite x = value(status)
  102.   end repeat
  103.   set gStars = []
  104.   setControlBar
  105.   
  106.   updatestage
  107.   
  108. end
  109.